home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1998 #4
/
Amiga Plus CD - 1998 - No. 4.iso
/
system
/
mainactor
/
install-mainactor-hd
< prev
next >
Wrap
Text File
|
1996-11-04
|
4KB
|
144 lines
; $VER: MainActor Install Version 1.0 (14.08.95)
; Script zum Installieren von MainActor (Shareware) auf Festplatte
; © Michael Giebel
(complete 0)
;=============
;=== Texte ===
;=============
(set #help-startup
(cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
"In ihr befinden sich spezielle Kommandos, die einige Programme "
"bereits beim Systemstart ausgeführt haben wollen.\n\n"
"Wenn Sie auf den Schalter \"Weiter\" klicken, so wird Ihre "
"\"user-startup\" automatisch um die angezeigten Zeilen ergänzt. "
"Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
"den Schalter \"Skip This Part\"\n\n"
"\"Abort\" bricht die Installation an dieser Stelle ab."))
(set #introduction
(cat "Mit diesem Installationsprogramm können Sie\n MainActor \n auf einer "
"Festplatte installieren.\nDie Installation läuft "
"nahezu vollständig automatisch ab.\n"
"Das komplette Programm belegt ca. 1,7 MByte auf Ihrer Festplatte!\n\n"
"Drücken Sie \"Weiter\", um mit der Installation fortzufahren.\n"
"Drücken Sie \"Installation abbrechen\", um die Installation abzubrechen."))
(set #wrk-installing-ma "\nDas MainActor-Paket wird entpackt ...\n")
(set #prp-installation "Auf welches Medium möchten Sie gerne installieren?")
(set #prp-installdrawer
(cat "Auf welches Medium soll installiert werden?\n"
"Eine Schublade \"MainActor\" muß evtl. selbst erzeugt werden!"))
(set #askdir-help
(cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
"Sie gerne MainActor installieren möchten. Dann drücken Sie "
"auf \"WEITER\" und das Programm beginnt mit der Arbeit.\n"
"Es ist notwendig, eine Schublade für MainActor selbst anzulegen!\n"
"Wählen Sie hierzu \"Neue Schublade anlegen ...\"\n"
"Es wird keine Schublade automatisch erzeugt!\n\n"
@askdir-help))
(set #msg-disk-too-small
(cat "\nWenn Sie diese Meldung erhalten, sollten Sie jetzt die Installation "
"abbrechen und erst einmal Platz auf Ihrer Festplatte schaffen!.\n\n"))
(set #prp-insert-disk1
(cat "\n\nBitte legen Sie nun die Diskette \"MainActorLT\" "
"in ein beliebiges Laufwerk ein!"))
(set #prp-somefiles
(cat "\nEinige Installationsdateien werden kopiert...\n"))
(set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram Disk kopieren."))
(set #Abort13
(cat "Sie verfügen leider nicht über Betriebssystem 2.0 oder höher.\n"
"Die Installation wird daher abgebrochen!"))
(set @abort-button "Abbruch")
(set @language "Deutsch")
;==============
;=== MAIN() ===
;==============
(message #introduction)
(welcome)
; Laufwerk aussuchen und MainActor-Verzeichnis erzeugen
(set @default-dest ; Verzeichnis wählen
(askdir
(prompt #prp-installdrawer)
(help #askdir-help)
(default "WORK:")
(disk)
)
)
(if ; Installations-Verzeichnis erzeugen
(= (exists @default-dest) 0)
(makedir @default-dest)
)
(complete 10)
(copyfiles ; LHX kopieren
(prompt "Kopiere Mainactor ...")
(help @copyfiles-help)
(source "")
(pattern "#?")
(dest @default-dest)
)
(complete 80)
(if (= (exists "l:mainactor.key") 0)
(copyfiles
(prompt "Kopiere Keyfile...")
(help @copyfiles-help)
(source "mainactor.key")
(dest "l:")
)
)
(complete 90)
; Eintrag in user-startup "Assign MainActor: @default-dest"
(set command1
(cat "Assign MainActor: " @default-dest))
(set command1.txt
(cat "\nUm mit MainActor arbeiten zu können, "
"wird ein neues logisches Gerät erzeugt. Außerdem wird "
"eine Änderung in der\n \"User-Startup\" vorgenommen:\n\n"
command1))
(startup "MainActor"
(prompt command1.txt)
(help #help-startup)
(command command1)
)
(makeassign "MainActor")
(makeassign "MainActor" @default-dest)
(complete 100)
;==================
;=== Conclusion ===
;==================
(message
(cat "Die Installation von MainActor ist "
"erfolgreich beendet.\n\n"
"Bitte lesen Sie die Dokumentation im MainActor-Verzeichnis durch. "
"Wir wünschen Ihnen viel Spaß beim Arbeiten mit MainActor!"))